%!
%   Fichier de test traductieur C-Like vers Poscript
% 
%   	 Auteur: 	
% 
%					"Jacquemin Thibault"
% 
%  		 		"Marleix Mathieu" 
% 
%						//
% 
%Définition de fonction dragon
/dragon {
 5 dict begin 
/t exch def
/z exch def
/y exch def
/x exch def
/n exch def
gsave
n 1.000000 eq {
newpath
x y moveto
z t lineto
stroke
}
{
/u x z add t add y sub 2.000000 div def
/v y t add z sub x add 2.000000 div def
n 1.000000 sub x y u v dragon 
n 1.000000 sub z t u v dragon 
} ifelse
grestore
 end
} def
17.000000 500.000000 500.000000 200.000000 200.000000 dragon 
